home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / gnumake / gnumake.zoo / diffs next >
Encoding:
Text File  |  1990-02-16  |  21.2 KB  |  882 lines
  1. *** make-3.58/orig/arscan.c    Fri Oct 20 01:46:34 1989
  2. --- make-3.58/arscan.c    Fri Feb 16 21:15:10 1990
  3. ***************
  4. *** 24,30 ****
  5. --- 24,34 ----
  6.   #define PORTAR 1
  7.   #endif
  8.   
  9. + #ifdef GEMDOS
  10. + #include <gnu-ar.h>
  11. + #else
  12.   #include <ar.h>
  13. + #endif
  14.   #include <stdio.h>
  15.   #include <sys/types.h>
  16.   #include <sys/stat.h>
  17. ***************
  18. *** 266,271 ****
  19. --- 270,279 ----
  20.     if (!pos)
  21.       return 1;
  22.   
  23. + #ifdef GEMDOS
  24. +   if (utime(arname, 0L) < 0)    /* GEMDOS needs this to touch the file */
  25. +     return -3;
  26. + #endif
  27.     fd = open (arname, O_RDWR, 0666);
  28.     if (fd < 0)
  29.       return -3;
  30. ***************
  31. *** 280,286 ****
  32. --- 288,298 ----
  33.     if (sizeof ar_hdr != write (fd, (char *) &ar_hdr, sizeof ar_hdr))
  34.       goto lose;
  35.     /* The file's mtime is the time we we want.  */
  36. + #ifdef GEMDOS
  37. +   stat(arname, &statbuf);
  38. + #else
  39.     fstat (fd, &statbuf);
  40. + #endif
  41.   #ifdef ARFMAG
  42.     /* Advance member's time to that time */
  43.     for (i = 0; i < sizeof ar_hdr.ar_date; i++)
  44. *** make-3.58/orig/commands.c    Mon Feb 12 19:43:02 1990
  45. --- make-3.58/commands.c    Mon Feb 12 19:23:34 1990
  46. ***************
  47. *** 342,347 ****
  48. --- 342,348 ----
  49.        int sig;
  50.   {
  51.     signal (sig, SIG_DFL);
  52. + #ifndef GEMDOS
  53.   #ifndef USG
  54.     (void) sigsetmask (0);
  55.   #endif
  56. ***************
  57. *** 387,392 ****
  58. --- 388,394 ----
  59.       wait_for_children (0, 1);
  60.   
  61.     /* Delete any non-precious intermediate files that were made.  */
  62. + #endif /* GEMDOS */
  63.   
  64.     remove_intermediates (1);
  65.   
  66. *** make-3.58/orig/dir.c    Wed Oct  4 01:12:46 1989
  67. --- make-3.58/dir.c    Mon Jan 29 22:47:32 1990
  68. ***************
  69. *** 36,41 ****
  70. --- 36,47 ----
  71.   #endif    /* USGr3 or DIRENT.  */
  72.   
  73.   
  74. + #ifdef GEMDOS
  75. + #define HASH_LIMIT 8    /* only consider this many characters of file names */
  76. + static short _limit = 0;
  77. + #endif
  78. + 
  79. + 
  80.   /* Hash table of directories.  */
  81.   
  82.   struct directory
  83. ***************
  84. *** 83,94 ****
  85. --- 89,108 ----
  86.     register char *p;
  87.     register struct directory *dir;
  88.   
  89. + #ifdef GEMDOS
  90. +   for (p = name, _limit = HASH_LIMIT; *p != '\0' && _limit-- > 0; ++p)
  91. + #else
  92.     for (p = name; *p != '\0'; ++p)
  93. + #endif
  94.       HASH (hash, *p);
  95.     hash %= DIRECTORY_BUCKETS;
  96.   
  97.     for (dir = directories[hash]; dir != 0; dir = dir->next)
  98. + #ifdef GEMDOS
  99. +     if (DOS_streq (dir->name, name))
  100. + #else
  101.       if (streq (dir->name, name))
  102. + #endif
  103.         break;
  104.   
  105.     if (dir == 0)
  106. ***************
  107. *** 151,157 ****
  108. --- 165,175 ----
  109.       /* Checking if the directory exists.  */
  110.       return 1;
  111.   
  112. + #ifdef GEMDOS
  113. +       for (p = filename,_limit = HASH_LIMIT; *p != '\0' && _limit-- > 0; ++p)
  114. + #else
  115.         for (p = filename; *p != '\0'; ++p)
  116. + #endif
  117.       HASH (hash, *p);
  118.         hash %= DIRFILE_BUCKETS;
  119.   
  120. ***************
  121. *** 158,164 ****
  122. --- 176,186 ----
  123.         /* Search the list of hashed files.  */
  124.   
  125.         for (df = dir->files[hash]; df != 0; df = df->next)
  126. + #ifdef GEMDOS
  127. +     if (DOS_streq (df->name, filename))
  128. + #else
  129.       if (streq (df->name, filename))
  130. + #endif
  131.         return !df->impossible;
  132.       }
  133.   
  134. ***************
  135. *** 174,180 ****
  136. --- 196,206 ----
  137.         /* Enter the file in the hash table.  */
  138.         register unsigned int newhash = 0;
  139.         register unsigned int i;
  140. + #ifdef GEMDOS
  141. +       for (i = 0, _limit = HASH_LIMIT; i < D_NAMLEN(d) && _limit-- > 0; ++i)
  142. + #else
  143.         for (i = 0; i < D_NAMLEN(d); ++i)
  144. + #endif
  145.       HASH (newhash, d->d_name[i]);
  146.         newhash %= DIRFILE_BUCKETS;
  147.         df = (struct dirfile *) xmalloc (sizeof (struct dirfile));
  148. ***************
  149. *** 184,191 ****
  150.         df->impossible = 0;
  151.   
  152.         /* Check if the name matches the one we're searching for.  */
  153. !       if (filename != 0
  154. !       && newhash == hash && streq (d->d_name, filename))
  155.       return 1;
  156.       }
  157.   
  158. --- 210,222 ----
  159.         df->impossible = 0;
  160.   
  161.         /* Check if the name matches the one we're searching for.  */
  162. !       if (filename != 0 && newhash == hash 
  163. ! #ifdef GEMDOS
  164. !       && DOS_streq (d->d_name, filename)
  165. ! #else
  166. !       && streq (d->d_name, filename)
  167. ! #endif
  168. !                     )
  169.       return 1;
  170.       }
  171.   
  172. ***************
  173. *** 251,257 ****
  174. --- 282,293 ----
  175.         filename = p = dirend + 1;
  176.       }
  177.   
  178. + #ifdef GEMDOS
  179. +   _limit = HASH_LIMIT;
  180. +   for (hash = 0; *p != '\0' && _limit-- > 0; ++p)
  181. + #else
  182.     for (hash = 0; *p != '\0'; ++p)
  183. + #endif
  184.       HASH (hash, *p);
  185.     hash %= DIRFILE_BUCKETS;
  186.   
  187. ***************
  188. *** 300,311 ****
  189. --- 336,356 ----
  190.       /* There are no files entered for this directory.  */
  191.       return 0;
  192.   
  193. + #ifdef GEMDOS
  194. +   _limit = HASH_LIMIT;
  195. +   for (hash = 0; *p != '\0' && _limit-- > 0; ++p)
  196. + #else
  197.     for (hash = 0; *p != '\0'; ++p)
  198. + #endif
  199.       HASH (hash, *p);
  200.     hash %= DIRFILE_BUCKETS;
  201.   
  202.     for (next = dir->files[hash]; next != 0; next = next->next)
  203. + #ifdef GEMDOS
  204. +     if (DOS_streq (filename, next->name))
  205. + #else
  206.       if (streq (filename, next->name))
  207. + #endif
  208.         return next->impossible;
  209.   
  210.     return 0;
  211. ***************
  212. *** 381,383 ****
  213. --- 426,469 ----
  214.       printf ("%u", impossible);
  215.     printf (" impossibilities in %u directories.\n", dirs);
  216.   }
  217. + 
  218. + #ifdef GEMDOS
  219. + /* checks to see if two names refer to the same file */
  220. + int DOS_streq(name1, name2)
  221. + char *name1, *name2;
  222. + {
  223. +     static char _name1[64], _name2[64];
  224. +     char *lastslash;
  225. +     extern char *rindex();
  226. +     int i;
  227. + 
  228. +     if (!strcmp(name1, name2)) return 1;
  229. + 
  230. +     unx2dos(name1, _name1);
  231. +     unx2dos(name2, _name2);
  232. + 
  233. +     name1 = rindex(_name1, '\\'); if (!name1) name1 = _name1;
  234. +     name2 = rindex(_name2, '\\'); if (!name2) name2 = _name2;
  235. +     for(i = 8; i>0; i--) {
  236. +         if (*name1 != *name2) return 0;
  237. +         if (*name1 == 0)
  238. +             return 1;
  239. +         if (*name1 == '.')
  240. +             goto doext;
  241. +         name1++; name2++;
  242. +     }
  243. + 
  244. + /* now look for extension */
  245. +     while (*name1 && *name1 != '.') name1++;
  246. +     while (*name2 && *name2 != '.') name2++;
  247. +     if (*name1 != *name2) return 0;
  248. + doext:
  249. +     name1++; name2++;
  250. +     for (i = 3; i > 0; i--) {
  251. +         if (*name1 != *name2) return 0;
  252. +         if (!*name1) return 1;
  253. +         name1++; name2++;
  254. +     }
  255. +     return 1;
  256. + }
  257. + #endif /* GEMDOS */
  258. *** make-3.58/orig/function.c    Mon Feb 12 19:43:06 1990
  259. --- make-3.58/function.c    Mon Feb 12 19:24:16 1990
  260. ***************
  261. *** 337,342 ****
  262. --- 337,345 ----
  263.       else
  264.         buf[0] = '\0';
  265.   
  266. + #ifdef GEMDOS
  267. +     perror_with_name (buf, "function not allowed under GEMDOS");
  268. + #else
  269.       if (pipe (pipedes) < 0)
  270.         {
  271.           perror_with_name (buf, "pipe");
  272. ***************
  273. *** 430,435 ****
  274. --- 433,439 ----
  275.           free (buffer);
  276.         }
  277.   
  278. + #endif /* GEMDOS */
  279.       free (text);
  280.       break;
  281.         }
  282. *** make-3.58/orig/job.c    Mon Feb 12 19:43:12 1990
  283. --- make-3.58/job.c    Tue Feb 13 18:50:50 1990
  284. ***************
  285. *** 23,28 ****
  286. --- 23,34 ----
  287.   #include "variable.h"
  288.   #include <errno.h>
  289.   
  290. + #ifdef GEMDOS
  291. + #include <ctype.h>
  292. + extern char *findfile();
  293. + static char *_extensions[] = { "ttp", "prg", "tos", 0 };
  294. + #endif
  295. + 
  296.   extern int errno;
  297.   
  298.   #if    defined(USG) && !defined(HAVE_VFORK)
  299. ***************
  300. *** 33,39 ****
  301.   #endif    /* USG and don't have vfork.  */
  302.   extern int vfork ();
  303.   
  304. ! #if    defined(HAVE_SYS_WAIT) || !defined(USG)
  305.   #include <sys/wait.h>
  306.   #include <sys/time.h>
  307.   #include <sys/resource.h>
  308. --- 39,45 ----
  309.   #endif    /* USG and don't have vfork.  */
  310.   extern int vfork ();
  311.   
  312. ! #if    (defined(HAVE_SYS_WAIT) || !defined(USG)) && !defined(GEMDOS)
  313.   #include <sys/wait.h>
  314.   #include <sys/time.h>
  315.   #include <sys/resource.h>
  316. ***************
  317. *** 62,67 ****
  318. --- 68,84 ----
  319.   
  320.   #else    /* WTERMSIG not defined and have <sys/wait.h> or not USG.  */
  321.   
  322. + # ifdef GEMDOS
  323. + #  define WAIT_T int
  324. + #  define WTERMSIG(x) 0
  325. + #  define WCOREDUMP(x) 0
  326. + #  define WEXITSTATUS(x)  x
  327. + #  define WIFSIGNALED(x) (WTERMSIG (x) != 0)
  328. + #  define WIFEXITED(x) (WTERMSIG (x) == 0)
  329. + 
  330. + # else
  331. + 
  332. + 
  333.   #define WAIT_T union wait
  334.   #define WTERMSIG(x) ((x).w_termsig)
  335.   #define WCOREDUMP(x) ((x).w_coredump)
  336. ***************
  337. *** 70,75 ****
  338. --- 87,94 ----
  339.   #define    WIFSIGNALED(x)    (WTERMSIG(x) != 0)
  340.   #endif
  341.   
  342. + #endif  /* GEMDOS */
  343. + 
  344.   #endif    /* WTERMSIG defined or USG and don't have <sys/wait.h>.  */
  345.   
  346.   
  347. ***************
  348. *** 153,159 ****
  349. --- 172,180 ----
  350.        Using the default action does the right thing.  */
  351.     (void) signal (SIGCLD, SIG_DFL);
  352.   #else
  353. + # ifndef GEMDOS
  354.     (void) sigblock (sigmask (SIGCHLD));
  355. + # endif
  356.   #endif
  357.   
  358.     block_remote_children ();
  359. ***************
  360. *** 166,172 ****
  361. --- 187,195 ----
  362.   #ifdef    USG
  363.     (void) signal (SIGCLD, child_handler);
  364.   #else
  365. + # ifndef GEMDOS
  366.     (void) sigsetmask (sigblock (0) & ~sigmask (SIGCHLD));
  367. + # endif
  368.   #endif
  369.   
  370.     unblock_remote_children ();
  371. ***************
  372. *** 209,215 ****
  373.       {
  374.         /* No remote children.  Check for local children.  */
  375.   
  376. ! #if    !defined(USG) || defined(HAVE_SYS_WAIT)
  377.         if (sig > 0)
  378.           pid = wait3 (&status, WNOHANG, (struct rusage *) 0);
  379.         else
  380. --- 232,238 ----
  381.       {
  382.         /* No remote children.  Check for local children.  */
  383.   
  384. ! #if    (!defined(USG) || defined(HAVE_SYS_WAIT)) && !defined(GEMDOS)
  385.         if (sig > 0)
  386.           pid = wait3 (&status, WNOHANG, (struct rusage *) 0);
  387.         else
  388. ***************
  389. *** 238,243 ****
  390. --- 261,267 ----
  391.       /* We got a remote child.  */
  392.       remote = 1;
  393.   
  394. + #ifndef GEMDOS
  395.         /* Check if this is the child of the `shell' function.  */
  396.         if (!remote && pid == shell_function_pid)
  397.       {
  398. ***************
  399. *** 259,264 ****
  400. --- 283,290 ----
  401.           continue;
  402.       }
  403.   
  404. + #endif /* GEMDOS */
  405. + 
  406.         child_failed = exit_sig != 0 || exit_code != 0;
  407.   
  408.         /* Search for a child matching the deceased one.  */
  409. ***************
  410. *** 536,541 ****
  411. --- 562,568 ----
  412.     
  413.     /* Set up a bad standard input that reads from a broken pipe.  */
  414.   
  415. + #ifndef GEMDOS
  416.     if (bad_stdin == -1)
  417.       {
  418.         /* Make a file descriptor that is the read end of a broken pipe.
  419. ***************
  420. *** 549,554 ****
  421. --- 576,582 ----
  422.         bad_stdin = pd[0];
  423.       }
  424.       }
  425. + #endif /* GEMDOS */
  426.   
  427.     /* Decide whether to give this child the `good' standard input
  428.        (one that points to the terminal or whatever), or the `bad' one
  429. ***************
  430. *** 695,700 ****
  431. --- 723,729 ----
  432.     if (stdout_fd != 1)
  433.       (void) dup2 (stdout_fd, 1);
  434.   
  435. + #ifndef GEMDOS
  436.     /* Free up file descriptors.  */
  437.     {
  438.       register int d;
  439. ***************
  440. *** 702,707 ****
  441. --- 731,737 ----
  442.       for (d = 3; d < max; ++d)
  443.         (void) close (d);
  444.     }
  445. + #endif
  446.   
  447.     /* Don't block children for our child.  */
  448.     unblock_children ();
  449. ***************
  450. *** 719,724 ****
  451. --- 749,757 ----
  452.   search_path (file, path)
  453.        char *file, *path;
  454.   {
  455. + #ifdef GEMDOS
  456. +   return findfile(file, path, _extensions);
  457. + #else
  458.     if (*path == '\0' || index (file, '/') != 0)
  459.       return file;
  460.     else
  461. ***************
  462. *** 785,790 ****
  463. --- 818,824 ----
  464.       }
  465.   
  466.     return 0;
  467. + #endif /* GEMDOS */
  468.   }
  469.   
  470.   /* Replace the current process with one running the command in ARGV,
  471. ***************
  472. *** 855,861 ****
  473. --- 889,899 ----
  474.        char *line;
  475.        struct file *file;
  476.   {
  477. + #ifdef GEMDOS
  478. +   static char sh_chars[] = "#;\"*?[]&|<>(){}$`";
  479. + #else
  480.     static char sh_chars[] = "#;\"*?[]&|<>(){}=$`";
  481. + #endif
  482.     static char *sh_cmds[] = { "cd", "eval", "exec", "exit", "login",
  483.                    "logout", "set", "umask", "wait", "while", "for",
  484.                    "case", "if", ":", ".", "break", "continue",
  485. ***************
  486. *** 868,873 ****
  487. --- 906,912 ----
  488.     int instring;
  489.     char **new_argv = 0;
  490.   
  491. + #ifndef GEMDOS
  492.     /* See if it is safe to parse commands internally.  */
  493.     p = variable_expand_for_file ("$(SHELL)", file);
  494.     if (strcmp (p, "/bin/sh"))
  495. ***************
  496. *** 876,881 ****
  497. --- 915,921 ----
  498.     for (ap = p; *ap != '\0'; ++ap)
  499.       if (*ap != ' ' && *ap != '\t' && *ap != '\n')
  500.         goto slow;
  501. + #endif /* GEMDOS */
  502.   
  503.     i = strlen (line) + 1;
  504.   
  505. ***************
  506. *** 911,916 ****
  507. --- 951,962 ----
  508.         {
  509.         case '\\':
  510.           if (p[1] != '\0' && p[1] != '\n')
  511. + #ifdef GEMDOS
  512. +     /* in case we're in a file name -- this is a kludge! */
  513. +         if (isalnum(p[1]) || p[1] == '.')
  514. +         *ap++ = *p;
  515. +         else
  516. + #endif
  517.             /* Copy and skip the following char.  */
  518.             *ap++ = *++p;
  519.           break;
  520. ***************
  521. *** 1144,1146 ****
  522. --- 1190,1204 ----
  523.     return fd;
  524.   }
  525.   #endif    /* USG and not USGr3 and not HAVE_DUP2.  */
  526. + 
  527. + #ifdef GEMDOS
  528. + int execve(name, argv, envp)
  529. + char *name, **argv, **envp;
  530. + {
  531. +     int r;
  532. + 
  533. +     r = spawnve(0, name, argv, envp);
  534. +     if (r < 0) return r;
  535. +     _exit(r);
  536. + }
  537. + #endif
  538. *** make-3.58/orig/main.c    Mon Feb 12 19:43:24 1990
  539. --- make-3.58/main.c    Mon Feb 12 19:25:18 1990
  540. ***************
  541. *** 24,29 ****
  542. --- 24,32 ----
  543.   #include <ctype.h>
  544.   #include <time.h>
  545.   
  546. + #ifdef GEMDOS
  547. + long _stksize = 20*1024L;
  548. + #endif
  549.   
  550.   extern char *version_string;
  551.   
  552. ***************
  553. *** 283,289 ****
  554. --- 286,298 ----
  555.     register struct dep *lastgoal;
  556.     struct dep *read_makefiles;
  557.     char current_directory[MAXPATHLEN];
  558. + #if defined(GEMDOS) && defined(__GNUC__)
  559. +   extern int _unixmode;
  560. +   extern int _mallocChunkSize();
  561.   
  562. +   _unixmode = 3;        /* full Unix filename translation */
  563. +   _mallocChunkSize(16*1024L);    /* minimum asked for from system  */
  564. + #endif
  565.     default_goal_file = 0;
  566.     reading_filename = 0;
  567.     reading_lineno_ptr = 0;
  568. ***************
  569. *** 345,358 ****
  570.   
  571.     /* Figure out where this program lives.  */
  572.   
  573. !   if (argv[0] == 0)
  574. !     argv[0] = "";
  575. !   if (argv[0][0] == '\0')
  576.       program = "make";
  577.     else 
  578.       {
  579.         program = rindex (argv[0], '/');
  580.         if (program == 0)
  581.       program = argv[0];
  582.         else
  583.       ++program;
  584. --- 354,369 ----
  585.   
  586.     /* Figure out where this program lives.  */
  587.   
  588. !   if (argv[0] == 0 || argv[0][0] == '\0')
  589.       program = "make";
  590.     else 
  591.       {
  592.         program = rindex (argv[0], '/');
  593.         if (program == 0)
  594. + #ifdef GEMDOS
  595. +     program = rindex(argv[0], '\\');
  596. +       if (program == 0)
  597. + #endif
  598.       program = argv[0];
  599.         else
  600.       ++program;
  601. ***************
  602. *** 565,571 ****
  603. --- 576,584 ----
  604.   #ifdef SIGCHLD
  605.     (void) signal (SIGCHLD, child_handler);
  606.   #else
  607. + # ifdef SIGCLD
  608.     (void) signal (SIGCLD, child_handler);
  609. + # endif
  610.   #endif
  611.   
  612.     /* Install the default implicit rules.  */
  613. *** make-3.58/orig/make.h    Sun Sep 17 19:35:56 1989
  614. --- make-3.58/make.h    Mon Feb 12 20:24:32 1990
  615. ***************
  616. *** 18,23 ****
  617. --- 18,27 ----
  618.   #include <signal.h>
  619.   #include <stdio.h>
  620.   
  621. + #ifdef GEMDOS
  622. + #define DIRENT
  623. + #endif
  624. + 
  625.   #ifndef    sun
  626.   #include <sys/types.h>
  627.   #endif
  628. ***************
  629. *** 67,74 ****
  630. --- 71,83 ----
  631.   #endif
  632.   
  633.   /* Add to VAR the hashing value of C, one character in a name.  */
  634. + #ifdef GEMDOS
  635. + #define HASH(var, c) \
  636. +   ((var += toupper(c)), (var = ((var) << 7) + ((var) >> 20)))
  637. + #else
  638.   #define    HASH(var, c) \
  639.     ((var += (c)), (var = ((var) << 7) + ((var) >> 20)))
  640. + #endif
  641.   
  642.   #if defined(__GNUC__) || defined(ENUM_BITFIELDS)
  643.   #define    ENUM_BITFIELD(bits)    :bits
  644. ***************
  645. *** 116,122 ****
  646.   extern int glob_pattern_p ();
  647.   extern char **glob_filename ();
  648.   
  649. ! #ifndef    USG
  650.   extern int sigsetmask ();
  651.   #endif
  652.   extern int kill (), sigblock ();
  653. --- 125,131 ----
  654.   extern int glob_pattern_p ();
  655.   extern char **glob_filename ();
  656.   
  657. ! #if !defined(USG) && !defined(GEMDOS)
  658.   extern int sigsetmask ();
  659.   #endif
  660.   extern int kill (), sigblock ();
  661. *** make-3.58/orig/makefile    Mon Feb 12 19:42:58 1990
  662. --- make-3.58/makefile    Tue Feb 13 21:14:26 1990
  663. ***************
  664. *** 18,27 ****
  665.   #
  666.   #    Makefile for GNU Make
  667.   #
  668.   
  669. - CFLAGS = $(defines) -g
  670. - LDFLAGS = -g
  671. - 
  672.   # Define nothing for BSD, USG for System V, and USGr3 (as well as USG) for
  673.   # SVR3, HPUX for HP-UX (as well as USG or USGr3 as appropriate).  If you have a
  674.   # USG hybrid with <sys/wait.h> and wait3, define HAVE_SYS_WAIT.  If you are USG
  675. --- 18,28 ----
  676.   #
  677.   #    Makefile for GNU Make
  678.   #
  679. + # Note: Atari ST users may as well omit the -g, since the Atari gdb doesn't
  680. + # support it.
  681. + CFLAGS = $(defines) -O -fomit-frame-pointer
  682. + LDFLAGS =
  683.   
  684.   # Define nothing for BSD, USG for System V, and USGr3 (as well as USG) for
  685.   # SVR3, HPUX for HP-UX (as well as USG or USGr3 as appropriate).  If you have a
  686.   # USG hybrid with <sys/wait.h> and wait3, define HAVE_SYS_WAIT.  If you are USG
  687. ***************
  688. *** 31,38 ****
  689.   # NO_MINUS_C_MINUS_O.  If you don't want archive support, define NO_ARCHIVES.
  690.   # If you want to avoid use of floating-point numbers, define NO_FLOAT.  If your
  691.   # compiler can handle `enum' bitfields (and it's not GCC), define
  692. ! # ENUM_BITFIELDS.
  693. ! defines =
  694.   
  695.   # Define UMAX here to use Encore's inq_stats call.  Define UMAX_43 (and UMAX)
  696.   # if you have UMAX 4.3 instead of UMAX 4.2.  If the load average is in a symbol
  697. --- 32,39 ----
  698.   # NO_MINUS_C_MINUS_O.  If you don't want archive support, define NO_ARCHIVES.
  699.   # If you want to avoid use of floating-point numbers, define NO_FLOAT.  If your
  700.   # compiler can handle `enum' bitfields (and it's not GCC), define
  701. ! # ENUM_BITFIELDS. For the Atari ST and TOS, define GEMDOS.
  702. ! defines = -DGEMDOS
  703.   
  704.   # Define UMAX here to use Encore's inq_stats call.  Define UMAX_43 (and UMAX)
  705.   # if you have UMAX 4.3 instead of UMAX 4.2.  If the load average is in a symbol
  706. ***************
  707. *** 42,49 ****
  708.   # "(double) load".  If a `struct nlist' (as defined in <nlist.h>) has a `n_un'
  709.   # union, rather than a simple `n_name' member, define NLIST_NAME_UNION.  If the
  710.   # `n_name' member of a `struct nlist' is an array that must be copied into,
  711. ! # define NLIST_NAME_ARRAY.  Otherwise, define NO_LDAV.
  712. ! LOAD_AVG =
  713.   
  714.   # If you don't want archive support, comment these out.
  715.   ARCHIVES = arscan.o ar.o
  716. --- 43,50 ----
  717.   # "(double) load".  If a `struct nlist' (as defined in <nlist.h>) has a `n_un'
  718.   # union, rather than a simple `n_name' member, define NLIST_NAME_UNION.  If the
  719.   # `n_name' member of a `struct nlist' is an array that must be copied into,
  720. ! # define NLIST_NAME_ARRAY.  Otherwise (e.g. GEMDOS), define NO_LDAV.
  721. ! LOAD_AVG = -DNO_LDAV
  722.   
  723.   # If you don't want archive support, comment these out.
  724.   ARCHIVES = arscan.o ar.o
  725. *** make-3.58/orig/misc.c    Tue Jul 11 07:45:52 1989
  726. --- make-3.58/misc.c    Sun Jan 28 22:30:50 1990
  727. ***************
  728. *** 240,246 ****
  729. --- 240,250 ----
  730.     extern int errno, sys_nerr;
  731.     extern char *sys_errlist[];
  732.   
  733. + #ifdef GEMDOS
  734. +   if (errno <= 0 && errno >= sys_nerr)
  735. + #else
  736.     if (errno < sys_nerr)
  737. + #endif
  738.       error ("%s%s: %s", str, name, sys_errlist[errno]);
  739.     else
  740.       error ("%s%s: Unknown error %d", str, name, errno);
  741. *** make-3.58/orig/read.c    Mon Feb 12 19:43:34 1990
  742. --- make-3.58/read.c    Mon Feb 12 19:26:44 1990
  743. ***************
  744. *** 72,80 ****
  745. --- 72,85 ----
  746.   
  747.   static char *default_include_directories[] =
  748.     {
  749. + #ifdef GEMDOS
  750. +     "/gnu/include",
  751. +     "/gnu/lib",
  752. + #else
  753.       "/usr/gnu/include",
  754.       "/usr/local/include",
  755.       "/usr/include",
  756. + #endif
  757.       0
  758.     };
  759.   
  760. ***************
  761. *** 1354,1359 ****
  762. --- 1359,1369 ----
  763.     register char **dirs = (char **) xmalloc ((5 + defsize) * sizeof (char *));
  764.     register unsigned int idx = 0;
  765.   
  766. + #ifdef GEMDOS
  767. +   char *env_dir;
  768. +   extern char *getenv();
  769. + #endif
  770. + 
  771.     /* First consider any dirs specified with -I switches.
  772.        Ignore dirs that don't exist.  */
  773.   
  774. ***************
  775. *** 1373,1378 ****
  776. --- 1383,1396 ----
  777.         }
  778.         }
  779.   
  780. + #ifdef GEMDOS
  781. +   /* Check environment for where include directories are */
  782. +   if (env_dir = getenv("GNUINC"))
  783. +     default_include_directories[0] = env_dir;
  784. +   if (env_dir = getenv("GNULIB"))
  785. +     default_include_directories[1] = env_dir;
  786. + #endif
  787. + 
  788.     /* Now add at the end the standard default dirs.  */
  789.   
  790.     for (i = 0; default_include_directories[i] != 0; ++i)
  791. ***************
  792. *** 1389,1395 ****
  793. --- 1407,1417 ----
  794.       {
  795.         unsigned int len = strlen (dirs[i]);
  796.         /* If dir name is written with a trailing slash, discard it.  */
  797. + #ifdef GEMDOS
  798. +       if (dirs[i][len - 1] == '/' || dirs[i][len - 1] == '\\')
  799. + #else
  800.         if (dirs[i][len - 1] == '/')
  801. + #endif
  802.       /* We can't just clobber a null in because it may have come from
  803.          a literal string and literal strings may not be writable.  */
  804.       dirs[i] = savestring (dirs[i], len - 1);
  805. *** make-3.58/orig/remake.c    Mon Feb 12 19:43:44 1990
  806. --- make-3.58/remake.c    Fri Feb 16 11:52:04 1990
  807. ***************
  808. *** 624,629 ****
  809. --- 624,634 ----
  810.         if (fd < 0)
  811.       TOUCH_ERROR ("touch: open: ");
  812.         else
  813. + #ifdef GEMDOS
  814. +       (void) close(fd);
  815. +       if (utime(file->name, 0L))
  816. +         TOUCH_ERROR("touch: utime: ");
  817. + #else
  818.       {
  819.         struct stat statbuf;
  820.         char buf;
  821. ***************
  822. *** 648,653 ****
  823. --- 653,659 ----
  824.           }
  825.         (void) close (fd);
  826.       }
  827. + #endif /* GEMDOS */
  828.       }
  829.   
  830.     return 0;
  831. ***************
  832. *** 781,791 ****
  833. --- 787,812 ----
  834.   {
  835.     time_t mtime;
  836.     char *name;
  837. + #ifdef GEMDOS
  838. +   char *libpath;
  839. +   extern char *getenv();
  840.   
  841. +   if (!(libpath = getenv("GNULIB")))
  842. +     libpath = "/gnu/lib";
  843. + 
  844. +   libpath = concat(libpath, "/", "");
  845. +   name = concat(libpath, lib, ".olb");    /* TOS GCC uses .olb for library files */
  846. +   free(libpath);
  847. + #else
  848.     name = concat ("/usr/lib/lib", lib, ".a");
  849. + #endif /* GEMDOS */
  850.     mtime = name_mtime (name);
  851.     if (mtime == (time_t) -1)
  852. + #ifdef GEMDOS
  853. +     mtime = name_mtime (rindex(name, '/'));
  854. + #else
  855.       mtime = name_mtime (name + 4);
  856. + #endif
  857.     if (mtime == (time_t) -1)
  858.       {
  859.         char *local = concat ("/usr/local/lib/lib", lib,  ".a");
  860. *** make-3.58/orig/variable.c    Mon Feb 12 19:43:54 1990
  861. --- make-3.58/variable.c    Mon Feb 12 19:27:40 1990
  862. ***************
  863. *** 366,371 ****
  864. --- 366,372 ----
  865.        will provide one if there isn't one there.  */
  866.     v = define_variable ("SHELL", 5, "/bin/sh", o_default, 0);
  867.   
  868. + #ifndef GEMDOS
  869.     /* Don't let SHELL come from the environment
  870.        if MAKELEVEL is 0.  Also, SHELL must not be empty.  */
  871.     if (*v->value == '\0' || (v->origin == o_env && makelevel == 0))
  872. ***************
  873. *** 373,378 ****
  874. --- 374,380 ----
  875.         v->origin = o_file;
  876.         v->value = savestring ("/bin/sh", 7);
  877.       }
  878. + #endif
  879.   }
  880.   
  881.   /* Subroutine of variable_expand and friends:
  882.